home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.10 / demo / vdx.i / vd1.i < prev    next >
Text File  |  1995-04-19  |  2KB  |  92 lines
  1.  
  2. {  ------  vd1.i  ------  }
  3.  
  4. Function VD1 : String;
  5.  
  6. CONST
  7.  
  8.   ObjectPoints : ARRAY[0..32] OF Short =  { Punkt-Tabelle }
  9.   (
  10.    8,
  11.   -200,-200, 200,0,
  12.   -200, 200, 200,0,
  13.    200, 200, 200,0,
  14.    200,-200, 200,0,
  15.   -200,-200,-200,0,
  16.   -200, 200,-200,0,
  17.    200, 200,-200,0,
  18.    200,-200,-200,0
  19.    );
  20.  
  21.   ObjectAreas : ARRAY[0..66] OF Short = { Flächen-Tabelle }
  22.   (
  23.    6,
  24.     4,1, 0*4,1*4,2*4,3*4,0*4, 0,0,0,0,
  25.     4,2, 3*4,2*4,6*4,7*4,3*4, 0,0,0,0,
  26.     4,3, 7*4,6*4,5*4,4*4,7*4, 0,0,0,0,
  27.     4,4, 0*4,4*4,5*4,1*4,0*4, 0,0,0,0,
  28.     4,5, 1*4,5*4,6*4,2*4,1*4, 0,0,0,0,
  29.     4,6, 0*4,3*4,7*4,4*4,0*4, 0,0,0,0
  30.   );
  31.  
  32.  
  33.   ObjectMove : ARRAY[0..77] OF Short =
  34.   (
  35.    200,  0, 0, 42, 2,1,2,    { Positionierung und Animationspfad }
  36.    100,  0, 0,-16, 1,1,1,
  37.    100,  7, 0,  0, 4,1,1,    { Zeit, move-x,-y,-z, rotx,roty,rotz, }
  38.    100, -7, 0, 16, 1,7,1,
  39.    100,  3, 4, -2, 1,0,1,
  40.    100, -3, 0,  0, 0,2,1,
  41.    180,  0,-2, -4, 1,1,2,
  42.    100,-20, 0,  0, 1,1,3,
  43.    100, 40, 0,  0, 1,1,3,
  44.    100,-20, 0,  0, 3,1,2,
  45.    100,  0, 0,-99, 4,1,2,
  46.    END_1
  47.   );
  48.  
  49.  
  50.   MyColTab : ARRAY[0..32] OF Short = { Farbtabelle }
  51.   (
  52.    0,  0, 0, 0,   { Register, Rot,Grün,Blau }
  53.    1, 12,12,15,
  54.    2, 10,10,14,
  55.    3,  8, 8,11,
  56.    4,  9,12, 9,
  57.    5,  8,11, 8,
  58.    6,  7,10, 7,
  59.    7,  6, 9, 6,
  60.    -1
  61.   );
  62.  
  63.  
  64. BEGIN
  65.  
  66.    MyObject.Point_Data := Adr(ObjectPoints);
  67.    MyObject.Area_Data  := Adr(ObjectAreas);
  68.    MyObject.Move_Table := Adr(ObjectMove);
  69.  
  70.    MyWorld.flags := 0;
  71.    MyWorld.first := Adr(MyObject);
  72.  
  73.  
  74.    { "Animationsscreen" öffnen }
  75.    MyViewStruct := OpenVScreen( Adr(MyVScreen) );
  76.    IF MyViewStruct = NIL THEN
  77.      BEGIN
  78.       VD1 := "Hm - kriege keinen Screen ...";
  79.      END;
  80.  
  81.    Error := SetColors( MyViewStruct, Adr(MyColTab) );   { Farben setzen }
  82.  
  83.    Error := AutoScaleOn( MyVScreen.ViewModes ); { Entzerrung für höhere Auflösung }
  84.  
  85.    Error := DoAnim( Adr(MyWorld) );             { Auf zur Animation!! }
  86.  
  87.    Error := CloseVScreen();                     { Bildschirm schließen }
  88.  
  89.    VD1 := "ALLES in Pascal !";
  90. END;
  91.  
  92.